home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 592b.lha / TermII / English / ARexx Examples / test_wait.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1991-12-22  |  1.0 KB  |  33 lines
  1. /*                                                                      */
  2. /* test_wait.rexx                                                       */
  3. /*                                                                      */
  4. /*      Test rexx_wait and memory                                       */
  5. /*                                                                      */
  6.  
  7.  
  8. address TERM
  9.  
  10.   rexx_memory_on      /* Turn on memory mode                          */
  11.   serial_send '"ATDT3600\n"'
  12.   say 'Dialing...'
  13.   rexx_delay 5        /* To avoid confusion between Transpac answer   */
  14.                       /* and modem answer                             */
  15.   rexx_wait 30 2
  16.   say 'memory = ' memory
  17.   serial_send '"1751111\n"'
  18.   say 'Going in Calvacom...'
  19.   rexx_wait 5 2
  20.   say 'memory = ' memory
  21.   serial_send '"eg19\n"'
  22.   say 'Entering access code...'
  23.   rexx_wait 5 2
  24.   say 'memory = ' memory
  25.   serial_send '"mot-de-passe\n"'
  26.   say 'Entering password...'
  27.   rexx_wait 5 2
  28.   say 'memory = ' memory
  29.   serial_send '"/q tout\n"'
  30.   say 'Oh, I stop here'
  31.  
  32.  
  33.